home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / COLLISION DEMO 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  558b  |  20 lines
  1. 10  POKE 768,1: POKE 769,0: POKE 770,4
  2. 20  POKE 771,0: POKE 772,4: POKE 773,0
  3. 30  POKE 232,0: POKE 233,3: REM  $E8,E9=$300
  4. 40  HGR : HCOLOR= 3
  5. 50  HOME 
  6. 60  GOSUB 180
  7. 70  REM  'XDRAW' SCANNER
  8. 80  SCALE= 80
  9. 90  FOR R = 0 TO 63
  10. 100  ROT= R
  11. 110  XDRAW 1 AT 140,80: REM  XDRAW 1ST IMAGE
  12. 120  FOR I = 1 TO 25: NEXT I: REM  DELAY LOOP
  13. 130  XDRAW 1 AT 140,80: REM  'ERASE' IMAGE
  14. 140  VTAB 22: PRINT  PEEK(234);"  "
  15. 150  IF  PEEK(234) >0  THEN  GET A$: IF A$ = "X"  THEN 
  16. 160  NEXT R
  17. 170  GOTO 90
  18. 180  REM  CREATE FIELD
  19. 190  HPLOT 140,100: HPLOT 140,101
  20. 200  RETURN